home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 June / 64er_Magazin_91-06_1991_Markt__Technik_de.d64 / hunt verschieben (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  859b  |  22 lines
  1. 10 print"[147]";:ifv=0thenv=1:load"hunt 49152*",8,1
  2. 11 ifv=2goto40
  3. 20 input"[206]eue [194]asisadresse";nb
  4. 30 ifnb/256<>int(nb/256)thenprint"wie waer's mit"int(nb/256)*256"?":goto20
  5. 33 input"[201]llegal [207]p's einbauen (j/n)";a$:ifa$="j"thenv=2:load"illegal ops",8,1
  6. 40 print"[147]abbbbbbbbbbbbbbbbbg!ctcjj]fffkg cceeeeehc";
  7. 41 print"ceeeeeigibcibcgbcdclkiccgfoicge#gntf^fmp";
  8. 42 print"ciecitccddjcccccecccicdicdicccdeeccdeecc";
  9. 43 print"ficcdjccccgcnkcoiccics\cncdicccen[cdccqi";
  10. 44 print"clccccnccclcgdddececcddddcceeelccecvcvme";
  11. 45 print"cgi^ccemjcxcciegfecciegfego"
  12. 46 print"(ca.15 sec.)"
  13. 60 x=49152
  14. 70 dv=(49152-nb)/256:d1=49152-nb:fora=49152to51093:pokea-d1,peek(a):next
  15. 80 fora=1024to1251:b=b+peek(a):pokenb+b,peek(x+b)-dv:next
  16. 82 print"[147][206]eue [197]insprungadresse:"nb+36
  17. 90 input"speichern (j/n)";a$:ifa$<>"j"thenend
  18. 95 a$="hunt":ifv=2thena$="opc."
  19. 96 a$=a$+right$("   "+str$(nb),6)+"/"+right$("   "+str$(nb+36),5)
  20. 100 sys(57812)a$,8:poke193,0:poke194,nb/256:poke174,166
  21. 110 poke175,nb/256+7:sys62957
  22.